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LL I] SS 
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Modified by: 


BLS0320 Benn Schreiber 18-MAY-1984 
Do not use /PROCESS=UNIQUE, since there may not be 
enough dynamic memory for the cache. 


B.S0302 Benn Schreiber 11-APR=1984 
Do not allow use on tailored or cluster multi-system disk 
configurations, as it will only fail. 


MCNOO01 Maria del C. Nasr 20-0ct-1983 
Comment out check for console device because it is no 
an ped needed, plus it will not work in a cluster 
environment. 


ON CONTROL_Y THEN GOTO DONE 
DELETE/SYMBOL/GLOBAL/ALL, 

Y = ‘WRITE SYSSOUTPUT 
SET PROT=(S:RWED,G:RWED,O:RWED,W:RE)/DEFAULT 
SYSDISK = FSLOGICAL (°'SYSSD1SK 5 


PAPAAAAAAMMOKVMH 
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DEFINE DX1_CSA1: 
DEFINE SYSSKIT CSA1: 

DEFINE VMSSSTARLET SYSSDISK:(SYSLIB) 
DEFINE VMSSHELPLIB SYSSDISK:CSYSHLP] 
CPU_TYPE = FSGETSYI(''CPU") 


EXIT_MESSAGE = "* Update sequence abnormally terminated."’ 
SET NOON : . ' 


SAY ee ee 

ne sein VMS Update Procedure’ 

SAY ** This command procedure performs VAX/VMS software updates and'' 

SAY ‘' optional software installations for VAX/VMS Release 4." 

SAY *' During this sequence, the standard console medium will not 

SAY ‘| be present in the console drive. Therefore, the system may'' 
*, be vulnerable to a a failure or other fatal crash. If a. 

SAY ** system crash should occur during this period the update’' 

SAY *' sequence can be restarted at the beginning of the first’ 

SAY *' incomplete update. 


SAY ** Dismount the current console medium."' 


IF FSGETSYIC’“TAILORED'’) THEN CITO_BAD_CONF IGURATION 
IF FSSEARCH(’'SYSSSPECIFIC:COOQOOOJSYSCOMMON.DIR'') .NES. ‘"' - 
CONNECT THEN GOTO BAD_CONF IGURATION 


CONSOLE: 
UN SYSSSYSTEM:SYSGEN 
ONNECT CONSOLE 
F yf SOF TOVIC CSA1:°',""MNT'") THEN DISMOUNT CSA1: 


A 
rd ** Please place the first volume in the console drive" 


m= MINN ZS D 
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E READY ‘‘Are you ready to continue?" 
non READY THEN GOTO 
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** Please place the next volume in the console drive" 


EXECUTE PROCEDURE : 
OPY CSA1:'FILE SYSS$DISK: 


ET UIC “DEFUIC’ 
ET DEFAULT "SYSDISK* CSYSUPD] 
ELETE ‘FILE;* 


ouvVeano 


D KIT: 


NT 
NT CSA1: 


U 
QUIRE READY ‘‘Are there more kits to process?" 
READY THEN GOTO 25 
MESSAGE = *' Requested update sequence is complete."' 


[ 81s | hale 
$s ee 68 

$ INQUIRE READY ‘‘Are you ready to continue?” 3 
$ IF .NOT. READY THEN GOTO ° 
$ 30: | ~ 
$ SET UIC (001,004) is 
$ SET DEFAULT §YS$DISK:CSYSUPDJ t 
$ MOUNT/NOWRITE/OVER=ID CSA1: wa 
$ IF .NOT. SSTATUS THEN GOTO DONE st 
$ IF .NOT. FSGETDVIC SAT. MNT) THEN coro LBL_ERROR 

$ FILE := "FSGETDVI(''CSA1".' VOL 

$ GOTO EXECUTE _PROCEDURE if 
$ LBL ERROR: ha 
$ SAY "' Unable to determine volume Label" 

$ GOTO DONE 


PAARAARAPARAGAAGHAOHS 
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SDONE : 

$ ON CONTROL_Y THEN GOTO CLEAN_UP | 

: SET NOON 

$ IF NOT. FSGETDVICCSAT:"), “EXISTS™) THEN GOTO CLEAN_UP | 

$ IF FSGET hs eS el ug wnt") *) THEN DISMOUNT CSA1: | 

$ IF cPuaty .£0. 3 THEN G0T0 mH 0_CONSOLE | 

. — és Please place the system console medium in the console drive." 

; ip Bg Al “Are you ready to continue?” | 
MOUNT /FOREIGN/SYSTEM/PROTECTION=S:RWLP/NOWRITE/NOASSIST CSA1: CONSOLE | 

; GOTO CLEAN_UP 

$730_CONSOLE : 

$ IF” Cor FSGETDVI CC CSA2:"","4NT’’) THEN 

$ MOUNT/FOREIGN/SY YSTEM/PROTECTION= S: RWLP/NOWRITE/NOASSIST CSA2: CONSOLE | 

SCLEAN_UP: 

$ IF FSTRNLNM . 'SYSSKIT'') NES. renee DEASSIGN SYSSKIT 

$ IF FSTRNLNM (°DX1"") NES. ial THEN DEASSIGN DX1 

$ IF FSTRNL **DXA1"") ES. °"* THEN DE SSIGN DXA1 

$ IF FSTRNLNM (““VMSSSTARLET'') .NES. ‘“* THEN DEASSIGN VMSSSTARLET 

$ IF FSTRNLNM ("‘VMSS eLpy 8 NES. ‘"* THEN DEASSIGN VMSSHELPLIB 

$ IF ***DEFUIC’’’ .NES. THEN SET UIC ‘DEFUIC’ 

$ IF ‘ "SAVE DEFAULT” -NES. ‘"* THEN SET DEFAULT ‘SAVE_DEFAULT 

$ SAY EXIT_MESSAGE 

$ SET O 

$ EXIT 

$BAD_CONF IGURATION: 


ome ¢ 15 
Y 


sy.) 
SAY ‘"This product may not be instal led on this software configuration." | 
ot ,gonsult your local Digital office for assistance. 


Y 
GOTO CLEAN_UP 
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